﻿Imports System.Windows.Forms

Public Class UCConsolidado

    Private Sub txtDocumento2_LostFocus(sender As Object, e As System.EventArgs) Handles txtDocumento2.LostFocus
        Dim sdoc As String = txtDocumento2.EditValue.ToString.Replace("-", "")
        Dim sser As String = Strings.Left(sdoc, 4)
        Dim snro As String = Strings.Right("00000000" & Strings.Mid(sdoc, 5).Trim, 8)
        txtDocumento2.EditValue = sser & snro
    End Sub

    Private Sub GridView2_InvalidValueException(sender As Object, e As DevExpress.XtraEditors.Controls.InvalidValueExceptionEventArgs) Handles GridView2.InvalidValueException
        'Do not perform any default action 
        e.ExceptionMode = DevExpress.XtraEditors.Controls.ExceptionMode.NoAction
        'Show the message with the error text specified 
        MessageBox.Show(e.ErrorText)
    End Sub


    Private Sub chkSeleccionar_EditValueChanged(sender As Object, e As System.EventArgs)
        MsgBox("prueba")
    End Sub
End Class